home *** CD-ROM | disk | FTP | other *** search
/ Chip: 2001 Haziran / CHIP Haziran2001.iso / prog / haziran / 20 / setup.exe / {app} / plugins / XQ SC2000 User Info.xpl < prev    next >
Encoding:
XSetup plugin  |  2001-03-28  |  1.4 KB  |  50 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="1"
  3. "COUNT"="2"
  4. "UIPATH"="Program Options\Games\SimCity 2000"
  5. "NAME"="Registered User/Mayor Name"
  6. "VERSION"="1.0"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Name"
  9. "TEXT 2"="Company"
  10. "DESCRIPTION 1"="Once SimCity 2000 is installed, you cannot normally change the registered user and company."
  11. "DESCRIPTION 2"="  The registered user is also the name used by the game, by default, as the mayor's name.  The only way"
  12. "DESCRIPTION 3"="to change this would be to reinstall the entire game, or to manually hack the registry entries.  This plug-in allows you to easily and quickly change it, without having to reinstall the entire game."
  13. "AUTHOR"="CptSiskoX (Xteq Systems)"
  14. "CONTACTURL"="http://www.xteq.com"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"=" "
  17.  
  18.  
  19.  
  20. sPath="HKEY_CURRENT_USER\Software\Maxis\SimCity 2000\Registration\"
  21. Sub Plugin_Initialize 
  22.  if RegPathExists(sPath) then
  23.   s=RegReadValue(sPath & "Mayor Name")
  24.   SetUIElement 1,s
  25.  
  26.   s=RegReadValue(sPath & "Company Name")
  27.   SetUIElement 2,s
  28.  else
  29.   Disable
  30.  end if
  31. End Sub
  32.  
  33. Sub Plugin_CheckData(ElementIndex)
  34. End Sub
  35.  
  36. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  37.  s=GetUIElement(1)
  38.  Call RegWriteValue(sPath & "Mayor Name",s,1)
  39.  
  40.  s=GetUIElement(2)
  41.  Call RegWriteValue(sPath & "Company Name",s,1)
  42. End Sub
  43.  
  44.  
  45. Sub Plugin_Terminate 
  46. End Sub
  47.  
  48.  
  49.  
  50.